Public Class PatientInformation
#Region "Structures"
    Public Structure ResultStruct
        Dim TestCode As String
        Public DataValue As String
        Public Unit As String
        Dim DateTestCompleted As String
    End Structure
#End Region

    Dim strPatientName As String
    Dim strAge As String
    Dim strSex As String
    Dim strDateOfBirth As String
    Dim strPhysicianID As String
    Dim strLocation As String
    Dim strPID As String
    Dim strSpecimenID As String
    Public ResultArray As New ArrayList()
    Dim strComment As String
    Property PatientName() As String
        Get
            Return strPatientName
        End Get
        Set(ByVal value As String)
            strPatientName = value
        End Set
    End Property
    Property Age() As String
        Get
            Return strAge
        End Get
        Set(ByVal value As String)
            strAge = value
        End Set
    End Property
    Property Sex() As String
        Get
            Return strSex
        End Get
        Set(ByVal value As String)
            strSex = value
        End Set
    End Property
    Property DateOfBirth() As String
        Get
            Return strDateOfBirth
        End Get
        Set(ByVal value As String)
            strDateOfBirth = value
        End Set
    End Property
    Property PhysicianID() As String
        Get
            Return strPhysicianID
        End Get
        Set(ByVal value As String)
            strPhysicianID = value
        End Set
    End Property
    Property Location() As String
        Get
            Return strLocation
        End Get
        Set(ByVal value As String)
            strLocation = value
        End Set
    End Property
    Property PID() As String
        Get
            Return strPID
        End Get
        Set(ByVal value As String)
            strPID = value
        End Set
    End Property
    Property SpecimenID() As String
        Get
            Return strSpecimenID
        End Get
        Set(ByVal value As String)
            strSpecimenID = value
        End Set
    End Property
    Property Comment() As String
        Get
            Return strComment
        End Get
        Set(ByVal value As String)
            strComment = value
        End Set
    End Property
End Class
